home *** CD-ROM | disk | FTP | other *** search
/ Aminet 30 / Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso / Aminet / dev / cross / GBDK-2.0.lha / GBDK / lib / get_prop.s < prev    next >
Text File  |  1998-10-12  |  388b  |  28 lines
  1.     .include    "global.s"
  2.  
  3.     .area    _CODE
  4.  
  5.     ;; Get properties of sprite number C
  6. .get_sprite_prop::
  7.     LD    HL,#.OAM+3    ; Calculate origin of sprite info
  8.  
  9.     SLA    C        ; Multiply C by 4
  10.     SLA    C
  11.     LD    B,#0x00
  12.     ADD    HL,BC
  13.  
  14.     LD    A,(HL)        ; Get sprite properties
  15.     LD    E,A
  16.     RET
  17.  
  18. _get_sprite_prop::
  19.     PUSH    BC
  20.  
  21.     LDA    HL,4(SP)    ; Skip return address and registers
  22.     LD    C,(HL)        ; C = nb
  23.  
  24.     CALL    .get_sprite_prop
  25.  
  26.     POP    BC
  27.     RET
  28.